5 IFZ9=0THENGOSUB60000
10 GOSUB7730,ST
20 GOSUB1770,FI
30 GOSUB2070,INTRO
40 SI=1:POKEKB,.
50 :
60 ONSIGOSUB210,370,580,690,780,850,1000,1090,1320,1420,1520,1560
70 IFSF<3THEN60
80 :
90 ONSI-14GOSUB2980,3200,3450,3480,3570,3860,3970,4000,4200
100 IFSI>23THENONSI-23GOSUB4290,4340,4420,4580,4620
110 IFSF<5THEN90
120 :
130 ONSI-28GOSUB4850,4950,5030,5080,5130,5210,5260,5300,5380,5420
140 IFSI>38THENONSI-38GOSUB5510,5540,5610,5690,5790,5910,5940,5970
150 IFSF<7THEN130
160 :
170 ONSI-46GOSUB6130,6250,6300,6400,6590,6690,6760,6850
180 GOTO150
190 :
200 SI#1:
210 GOSUB2220:SP=.
220 TX$="[215]OW!  [212]HAT'S A SCARY TELEGRAM!  [212]HIS    
230 TX$[178]TX$[170]"NEEDS QUICK ACTION TO AVOID A TRAGEDY.
240 CH$(1)="[199]RAB YOUR EARMUFFS AND CATCH THE NEXTFLIGHT NORTH
250 CH$(2)[178]"CHR$O TO (null)EARS' DEPARTMENT STORE AND    LOOK FOR (null)ANTA
260 CH$(3)="[201]GNORE IT- CLAIM THE MESSENGER GOT   THE WRONG ADDRESS
270 LK(1)[178]4:LK(2)[178]2:LK(3)[178]3
280 NC[178]3:[141]7380
290 [139]SI[178]2[167]ZF[178]ZF[170]1
300 [139]CH[178]3[176]SF[167][142]
310 A[178]22:[141]7580
320 [153]"PEEKUT IT'S SNOWING OUTSIDE -
330 PRINT"WHY DON'T YOU PUT YOUR SHOES ON FIRST?";
340 TR$="[212]HAT'S BETTER.
350 SF[178]1:[137]7620
360 #2
370 [139]ZF[177]1[167]500
380 TX$[178]"(null)OU ARRIVE AT (null)EARS IN RECORD TIME.     ATNSKING ABOUT (null)ANTA, YOU ARE
390 TX$=TX$+" TOLD THAT HELEFT SOME TIME AGO, LOOKING DEPRESSED.  [200]E WAS SEEN
400 TX$[178]TX$[170]" HEADED NORTH ON HIS SLED,   IN A BIT OF A RUSH.
410 TX$=TX$+CR$+"[195]OULD THIS BE A CLUE?
420 CH$(1)[178]"ASCOLLOW HIS TRAIL
430 CH$(2)="[199]O BACK HOME":LK(2)=1
440 CH$(3)="[194]UY SOME DISHES
450 CH$(4)[178]"PEEKUY SOME SUPPLIES":LK(4)[178]6
460 NC[178]4:[141]7380
470 [139]CH[178]1[167]TR$[178]"(null)HE TRAIL LEADS NORTH, TOWARD THE       AIRPORT.":SI[178]4
480 [139]CH[178]3[167]TR$[178]"(null)HE DISHES LOOK GREAT.":SI[178]2
490 [142]
500 [153]"LOAD(null)HOA - (null)HE STORE IS CLOSED!":[153]"(null)OU'LL HAVE TO WAIT UNTIL TOMORROW
510 PRINT"MORNING TO GET IN.
520 [141]7620
530 [153]"RIGHT$ SAID YOU'LL HAVE TO WAIT UNTIL":[153]"TOMORROW!
540 GOSUB7620
550 TR$="[154][207]K, OK, IT'S MORNING NOW.
560 ZF[178][171]1:[142]
570 #3
580 [141]1760:[153]"SYS(null)YPICAL!
590 PRINT"[217]OU KNOW, THAT'S THE TROUBLE WITH
600 [153]"SOCIETY TODAY: NOBODY CARES ANY MORE.
610 PRINT"[211]ANTA COULD BE DYING OUT THERE ON THE
620 [153]"TUNDRA, AND ALL YOU WANT TO DO IS SIT
630 PRINT"BY A WARM FIRE AND RELAX.  [207]H WELL, [201]
640 [153]"GUESS THIS IS GOING TO BE A VERY SHORT
650 PRINT"STORY.  [204]ET ME KNOW IF YOU SUDDENLY
660 [153]"DEVELOP A CONSCIENCE.";
670 SI[178]1:[137]2160
680 #4
690 [139]SF[177]1[167]SI[178]10:TR$[178]"(null)OUR SCORE IS 3 OUT OF 72 SO FAR.":[142]
700 TX$[178]CR$[170]"(null)OU'RE AT THE AIRPORT NOW. (null)NFORTUNATELYYOU DON'T HAVE ANYTHING 
710 TX$=TX$+"WITH YOU BUT    EARMUFFS AND SHOES.
720 CH$(1)[178]"CHR$ET ON A PLANE":LK(1)[178]7
730 CH$(2)[178]"CHR$O BACK HOME":LK(2)[178]1
740 CH$(3)[178]"PEEKUY SOME SUPPLIES (A WISE MOVE)":LK(3)[178]5
750 CH$(4)[178]"CHR$IVE UP":LK(4)[178]3
760 NC[178]4:[137]7380
770 #5
780 TR$[178]"(null)ELL, IT SEEMED LIKE A WISE MOVE"[170]CR$[170]"AT FIRST.
790 TX$="[217]OU LOCATE THE AIRPORT GIFT SHOP.       [211]ADLY, ALL THEY HAVE HERE 
800 TX$[178]TX$[170]"IS TOILETRIES AND SOME CHINTZY GIFT CARDS -"[170]CR$[170]"THE USUAL STUFF.
810 TX$=TX$+CR$+"[215]HY DON'T YOU GO BACK HOME AND[160]TRY
820 TX$[178]TX$[170]CR$[170]"(null)EARS' DEPARTMENT STORE?
830 LK(1)=4:GOTO7370
840 #6
850 IFSF>1THENSI=8:RETURN
860 TX$="[217]OU BUY A BACKPACK, A VERY LARGE PARKA, 
870 TX$[178]TX$[170]"SOME MUKLUKS, A RIFLE, AND A YEAR'S"[170]CR$
880 TX$[178]TX$[170]"SUPPLY OF FREEZE-DRIED TURNIPS, ON SALE.
890 TX$=TX$+"[217]OU MUST LOOK LIKE A GHOSTBUSTER WITH   ALL THAT STUFF!
900 CH$(1)[178]"LEFT$EAD BACK HOME":LK(1)[178]1
910 CH$(2)[178]"(null)EEP ON SHOPPING":LK(2)[178]8
920 CH$(3)[178]"CHR$O TO THE AIRPORT
930 NC=3:GOSUB7380
940 SF=2:IFCH-3THENRETURN
950 A=22:GOSUB7580:SYSCB,16:PRINT"[153][193]LL THAT SHOPPING WAS TIRING, SO ON
960 [153]"YOUR WAY TO THE AIRPORT, YOU DECIDE":[153]"TO GO HOME FOR A NAP.
970 PRINT"[154][208]RESS A KEY TO SET THE ALARM.
980 SI[178]1:[137]7620
990 #7
1000 TR$[178]"(null)HERE DO YOU THINK YOU'RE GOING?"[170]CR$[170]"LENALIFORNIA?"[170]CR$
1010 TR$[178]TR$[170]"(null)HIS IS THE SEARCH FOR (null)ANTA LENLUES,"[170]CR$
1020 TR$[178]TR$[170]"NOT (null)ANTA LENRUZ!"[170]CR$
1030 TR$[178]TR$[170]"SYS(null)ET ME EXPLAIN THIS CAREFULLY:
1040 TX$="[153][193]RE YOU GOING TO TRAVEL TO THE NORTH    POLE AND STRANGLE POLAR 
1050 TX$[178]TX$[170]"BEARS WITH JUST YOUR BARE HANDS?   (null)EAD MY LIPS:"[170]CR$
1060 TX$[178]TX$[170]"(null)OU NEED SOME SUPPLIES.
1070 LK(1)=4:EX$=" IF YOU UNDERSTAND":GOTO7370
1080 #8
1090 PRINT"[147][153][217]OU MUST HAVE BEEN 'BORN TO SHOP'!":W=3400:FORI=1TO999:NEXT
1100 PRINT"[154][217]OU'RE REALLY GETTING THE HANG OF THIS.
1110 [153]"(null)OU BUY AN AXE, A SNOWMOBILE, A
1120 PRINT"CAMPER'S PORTABLE KITCHEN, A DOGSLED,
1130 [153]"AND TWO CHAINSAWS (IN CASE ONE WON'T    START).
1140 FORI=1TOW:NEXT
1150 PRINT"[150][201] HOPE YOUR CREDIT IS GOOD!
1160 [139][194](KB)[178].[167][129]I[178]1[164]W:[130]
1170 [153]"PRINT(null)OU HEAD FOR THE AIRPORT AND GET ON A
1180 PRINT"PLANE.  [213]NFORTUNATELY THE WEIGHT OF ALL
1190 [153]"THAT STUFF IS TOO MUCH, AND THE PLANE
1200 PRINT"CRASHES.
1210 [129]I[178]1[164]W:[130]
1220 [151]SR[171]3,8:[151]SW[171]3,2:[151]SW[170]1,20:[151]SW[170]2,58
1230 [129]I[178]1[164]2:[151]SW,.:[151]RA,2:[151]SW,129
1240 J[178]9[174]9:[151]SW,128:[151]RA,7:J[178]2[174]2:[151]RA,1
1250 [151]SW,0:[151]RA,1:[151]SW,129:J[178]2[174]2:[151]RA,2
1260 J[178]2[174]2:[151]SW,128:[151]SR[171]3,143:[129]J[178]1[164]170:[130]
1270 [130]:[151]RA,.:[129]I[178]1[164]999:[130]
1280 [129]I[178]1[164]W:[161]A$
1290 [139]A$[178]""[167][130]:W[178]W[172]1.5:[158]CB,24:[153]"(null)RESS ANY KEY...";:[137]1220
1300 [151]SW,.:LK(1)[178]6:SF[178]1:[137]2530
1310 #9
1320 TX$[178]"(null)HAT A LONG FLIGHT IT IS TO (null)AUDI"[170]CR$
1330 TX$[178]TX$[170]"ATNRABIA.  (null)EXT TIME YOU CATCH THE WRONG  PLANE, RIGHT$ SUGGEST YOU
1340 TX$=TX$+" PICK THE [195]ONCORDE- YOU'LL GET LOST MUCH FASTER!
1350 CH$(1)[178]"(null)ELAX:  HAVE A DRINK":LK(1)[178]11
1360 CH$(2)[178]"LENHECK OUT THE BEACH":LK(2)[178]12
1370 CH$(3)[178]"CHR$ET A PLANE HOME
1380 NC=3:GOSUB7380
1390 IFCH=3THENTR$="[217]OU HAVE BETTER LUCK THIS TIME.":SI=10
1400 RETURN
1410 #10
1420 TX$="[200]OW YOU GOT ALL THAT EQUIPMENT THROUGH  THE SECURITY CHECK, [201]'LL 
1430 TX$[178]TX$[170]"NEVER KNOW.    CHR$OOD THING YOU BROUGHT A CREDIT CARD, TOPAY FOR 
1440 TX$=TX$+"YOUR TICKET.  [212]HAT HELPFUL CLERKPOINTED DOWN THIS WALKWAY, BUT
1450 TX$[178]TX$[170]" THERE ARESO MANY PLANES.
1460 CH$(1)="[212]AKE THE BLUE PLANE
1470 CH$(2)[178]"(null)AKE THE RED PLANE
1480 NC=2:GOSUB7380
1490 IFCH=2THENSF=3:SI=15:ZF=.:RETURN
1500 TR$="[207]H NO - YOU GOT ON THE WRONG PLANE!":SI=9:RETURN
1510 #11
1520 TR$=CR$+"[196]IDN'T YOU KNOW?
1530 TX$[178]"(null)HERE'S NO DRINKING ALLOWED HERE!  (null)ET'STRY AGAIN.
1540 LK(1)=9:GOTO7370
1550 #12
1560 TR$=CR$+"[212]HAT'S NOT A BEACH:  IT'S THE DESERT.
1570 TX$[178]"ATNNYWAY, RIGHT$ DON'T SEE (null)ANTA LENLAUS HERE.
1580 LK(1)=9:EX$=" TO GO TO THE AIRPORT":GOTO7370
1590 :
1600 SYSCB,19,18:PRINT"[150][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]";:R$="[146]
1610 [153]R$"GET  YOU'D QUIT NOW?  GET";
1620 [153]R$"GETF1 START OVER      GET";
1630 [153]R$"GETF3 RESUME SEARCH   GET";
1640 [153]R$"GETF7 "XX$"GET";
1650 [153]R$"LOGWAITNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWCOSWAIT";
1660 [141]7950:[141]7620
1670 [129]I[178]19[164]24:[158]CB,I,18:[153]"                     ";:[130]:[141]7540
1680 [139]CH[178]1[167][156]:ML[178]1:[137]10
1690 [139]CH[171]7[167][158]CB,19:[137]7390
1700 [151]53274,.:[151]56333,129:[158]65418:[151]53273,1:[151]53269,.
1710 [151]808,237
1720 [139][194](2)[178].[167][153]"LOAD":[151]53281,.:[162]:[128]
1730 A$[178]"HELLO CONNECT":[141]7660
1740 [139]A[178]63[167][147]A$,8
1750 [141]7690:[137]1730
1760 :
1770 RN[178]16:SL[178]2040:[151]BG,208:[139]SP[178]1[167]7570
1780 A1$[178]"=>=>=>=>=>=>=>=>=>=>=
1790 A2$="[177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177]
1800 A3$[178]">=>=>WAIT           >=>=>
1810 A4$="[178][177][178][177][178][146]           [178][177][178][177][178]
1820 [151]53265,11:[151]SX[170]16,.
1830 [151]SX,159:[151]SX[170]2,169:[151]SX[170]4,180:[151]SX[170]6,168:[151]SX[170]8,169
1840 [151]SX[170]1,144:[151]SX[170]3,133:[151]SX[170]5,142:[151]SX[170]7,149:[151]SX[170]9,55
1850 [151]SX[170]10,101:[151]SX[170]11,90:[151]SX[170]12,128:[151]SX[170]13,90
1860 [151]SL,13:[151]SL[170]2,14:[151]SL[170]3,15:[151]SL[170]4,13:[151]SL[170]5,11:[151]SL[170]6,11
1870 [151]53271,.:[151]53275,.:[151]53277,.
1880 [151]53276,111:[151]SC[171]2,1:[151]SC[171]1,7
1890 [151]SC[170]4,10:[151]SC[170]5,10:[151]SC[170]6,14
1900 [151]SW[171]2,30:[151]SW[170]1,1:[151]SW[170]2,0
1910 [151]SR[171]12,KB:[151]SR[171]9,129
1920 [153]"LOAD"[163]14)"ABSUSRUSRUSRUSRUSRUSRUSRUSRUSRINT
1930 PRINTTAB(14)"[182]         [181]
1940 [153][163]14)"ABS         INT
1950 PRINTTAB(14)"[182][175][175][175][175][175][175][175][175][175][181]
1960 [153][163]8)"FORFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
1970 PRINTTAB(9)A1$:PRINTTAB(9)A2$:PRINTTAB(9)A1$
1980 FORI=1TO3
1990 PRINTTAB(9)A3$:PRINTTAB(9)A4$
2000 NEXT:PRINTTAB(9)A3$
2010 SYSCB,13,16
2020 PRINT"[151][164][149] [163][163][163][163]
2030 [153][163]16)"POKEANDTOTAB(WAITVERIFYUSRUSRFORANDANDAND
2040 SP=1:SYSCB,RN
2050 POKESX+21,127:POKESX+17,27:RETURN
2060 :
2070 PRINT"[154][201]T IS A WINTER EVENING, LIKE SO MANY
2080 [153]"OTHERS, SPENT SITTING COMFORTABLY AT THE";
2090 [153]"FIRESIDE.   (null)HE FLICKERING, CRACKLING
2100 PRINT"FLAMES SOON LULL YOU INTO A FEELING OF
2110 [153]"WARMTH AND SECURITY.  (null)HE NEWSPAPER IS
2120 PRINT"PACKED WITH THE USUAL CHEER - TERRORIST
2130 [153]"BOMBINGS, HURRICANES, ELECTION RESULTS.
2140 PRINT"[194]UT WHAT'S THIS... A MESSENGER?";
2150 SC(1)=1:SC(2)=2:SC(3)=7:SC(4)=8:SC(5)=9:SC(6)=10:SC(7)=4
2160 FORI=0TO1
2170 POKESC+(PEEK(SR)AND3),SC(PEEK(SR)AND7)
2180 POKESL+(PEEK(SR)AND3),13+RND(1)*3
2190 IFPEEK(SR)<37THENPOKESW,.:POKESW,129:POKESW-3,40+KB*RND(1)
2200 I=PEEK(KB):NEXT:GETA$:RETURN
2210 :
2220 GOSUB1760
2230 PRINT"[154][204]ET'S READ THE TELEGRAM THAT CAME:[153]
2240 A$[178]"(null)ANTA LENLAUS IS MISSING AND BELIEVED":[141]2310
2250 A$[178]"LOST.  (null)OU MUST HELP!  (null)O MANY CHILDREN":[141]2310
2260 A$[178]"WILL BE DISAPPOINTED IF LENHRISTMAS IS":[141]2310
2270 A$[178]"CANCELLED.  LEFT$E WAS LAST SEEN WANDERING":[141]2310
2280 A$[178]"IN THE ATNRCTIC BUSH... THERE ARE SO MANY":[141]2310
2290 A$[178]"DANGERS, AND SO FEW CLUES. (null)LEASE HELP.":[141]2310
2300 [137]2160
2310 :
2320 [151]SW[171]3,60:[129]I[178]1[164][195](A$)
2330 [153]"ANDCMD"[202](A$,I,1);
2340 [151]SW,11[172](I[175]3):[130]:[153]
2350 [151]SC[170]([194](SR)[175]3),SC([194](SR)[175]7)
2360 [151]SL[170]([194](SR)[175]3),13[170][187](1)[172]3
2370 [142]
2380 :
2390 [153]"LOADPRINT"TR$:TR$[178]"":[153]TX$:[129]I[178]1[164]450:[139][194](KB)[178].[167][130]
2400 [153]"(null)OOKS LIKE YOU FORGOT ALL ABOUT (null)ANTA,
2410 PRINT"AND [195]HRISTMAS.   [212]HE NEXT
2420 [153]"MORNING'S NEWSPAPER REPORTED THAT
2430 PRINT"[211]ANTA'S BODY WAS FOUND, FROZEN STIFF.
2440 [129]I[178]1[164]700:[139][194](KB)[178].[167][130]
2450 [153]"(null)OO BAD.  (null)HAT'S A TRAGIC END TO
2460 PRINT"THE STORY, AND TO THE TRADITION":PRINT"OF [195]HRISTMAS.
2470 [153]"RIGHT$ HOPE YOU'RE PLEASED WITH YOURSELF.
2480 FORI=1TO700:IFPEEK(KB)=.THENNEXT
2490 PRINT"[211]INCE YOUR QUEST IS DEAD, YOU
2500 [153]"MIGHT AS WELL BE, TOO.
2510 POKEKB,.:GOSUB7360:LK(1)=SI
2530 GOSUB7950:PRINT"[147][152]"TAB(94)"[164][164][164][164][164][164][164][164][164][164][164]
2540 [153][163]13)"/"[163]24)"/SGN
2550 FORI=1TO11
2560 PRINTTAB(13)"           [146] [165]":NEXT
2570 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][152]           [146]/[163][163][163][163][163][163][163][163][163][163][163][163][163][163]
2580 [158]CB,6,15:[153]"PRINT#(null). RIGHT$. (null).
2590 SYSCB,17:PRINT"[154][217]OU'RE DEAD.":POKEKB,.
2600 IFLEN(E$)THENPRINT"[196]OES THAT TOMBSTONE LOOK FAMILIAR?":GOTO2710
2610 PRINT"[208]LEASE WRITE AN EPITAPH FOR YOUR":PRINT"TOMBSTONE:
2620 [153]"                      <ON
2630 PRINT"[175][157]";
2640 GETA$:IFA$=CHR$(13)THENPRINT" ":GOTO2710
2650 IFA$=CHR$(20)THENIFLEN(E$)THENE$=LEFT$(E$,LEN(E$)-1):GOTO2690
2660 IFA$<" "ORA$>"[218]"THEN2640
2670 IFA$>CHR$(129)THENIFA$<CHR$(160)THEN2640
2680 E$=E$+A$
2690 PRINTA$;:IFLEN(E$)<22THEN2630
2700 POKESW,33:POKESW-3,KB:POKESW,32
2710 Y=13:IFLEN(E$)<10THENY=18.5-LEN(E$)/2
2720 SYSCB,8,Y:PRINT"[152]"LEFT$(E$,11);
2730 IFLEN(E$)<21THENY=24-LEN(E$)/2
2740 SYSCB,10,Y:PRINTMID$(E$,12)
2750 SYSCB,24:PRINT"[158][208]RESS A KEY...";:POKEKB,.
2760 GOSUB7620
2770 GOSUB7950:NC=2:IFDC>0THEN2910
2780 A$="[211]INCE YOU'RE NEW AT THIS,
2790 [139]DF[167]A$[178]"(null)AYBE THAT WASN'T FAIR.
2800 IFDF=2THENA$="[217]OU NEVER LEARN, DO YOU!
2810 [139]DF[178]3[167]A$[178]"MID$UST ONE MORE TIME,
2820 PRINT"[147][153]":FORI=1TO3800:NEXT:PRINT"[212]ELL YOU WHAT:":FORI=1TO1600:NEXT
2830 PRINTA$:PRINT"[201]'LL GIVE YOU ANOTHER CHANCE.
2840 [153]"CONT(null)RESS:PRINT
2850 PRINT"[198]1 [195]ONTINUE SEARCHING
2860 [153]"ASC3 VALND THE SEARCH & CANCEL LENHRISTMAS
2870 DC=DC+10:DF=DF+1
2880 GOSUB7390
2890 IFCH=1THENRETURN
2900 :
2910 PRINT"[147][153][196]EAD AS A TEAROSE IN THE [193]RCTIC WINTER.
2920 [153]"CONT(null)RESS:CONTPRINT
2930 PRINT"[198]1 TRY AGAIN, HOPEFULLY BETTER NEXT TIME[198]3 "XX$
2940 NC=2:GOSUB7390
2950 IFCH=1THEN1680
2960 GOTO1700
2970 #15
2980 GOSUB3700:SI=16
2990 PRINT"[193]FTER A ROUGH FLIGHT THAT IS ENOUGH TO
3000 [153]"TIE YOUR STOMACH IN KNOTS, THE BUSH
3010 PRINT"PLANE BOUNCES TO A POWDERY LANDING AT
3020 [153]"A REMOTE (null)UKON WORK CAMP.  ATNS YOU
3030 PRINT"GATHER YOUR BELONGINGS AND PREPARE TO
3040 [153]"LEAVE THE PLANE, YOU BEGIN TO WONDER
3050 PRINT"WHAT YOU ARE DOING HERE.  [200]OWEVER, THE
3060 [153]"THOUGHT OF (null)ANTA LENLAUS WANDERING
3070 PRINT"HELPLESSLY IN THE BUSH DRIVES YOU":PRINT"ONWARD.
3080 [153]"(null)RESS A KEY TO CLIMB OUT OF THE PLANE.";
3090 :
3100 [151]SW,.:SL[178]255:[151]SW[170]1,SL:[151]SW[170]2,SL
3110 C[178]2000:B[178]20:[151]SR[171]3,7:[151]BG,248:[151]SC[171]6,.
3120 [151]SW,129:[129]I[178]0[164]1:[141]3150:I[178][194](KB):[130]
3130 [161]A$:[142]
3140 :
3150 [151]RA[170]1,SL:[139][187](1)[172]15[179]1[167]B[178][187](1)[172]99[171]45:SL[178]SL[170](SL[177]99)
3160 C[178]C[170]B:[139]C[179]699[167]B[178]40
3170 [139]C[177]3000[167]B[178][171]40
3180 [151]SW[171]4,C[175]255:[151]SW[171]3,C[173]256:[142]
3190 #16
3200 [141]3700
3210 [153]"CONT(null)HE WIND IS HOWLING, WHIPPING SNOW IN
3220 PRINT"YOUR FACE LIKE SANDPAPER.  [201]T'S ALREADY
3230 [153]"KNEE DEEP, AND DRIFTING AROUND YOUR
3240 PRINT"LEGS.  [217]OU APPRECIATE THAT ONE LAST HOT
3250 [153]"RUM YOU HAD ON THE PLANE.
3260 PRINT"[201]T'S JUST ABOUT PITCH BLACK HERE IN THE
3270 [153]"LONG ARCTIC WINTER.  RIGHT$N THE EERIE GLOW
3280 PRINT"FROM THE NORTHERN LIGHTS, YOU CAN
3290 [153]"BARELY MAKE OUT THE TRAIL OF SLED
3300 PRINT"RUNNERS DISAPPEARING TO THE NORTH.
3310 [153]"RIGHT$T'S YOUR ONLY CLUE.";
3320 [141]3120
3330 :
3340 [141]3700:[153]"CONT(null)HAT DO YOU DO NOW?
3350 PRINT"[155][198]1 [198]OLLOW THE TRAIL
3360 [153]"ASC3 LENHECK THE MAP":LK(2)[178]17
3370 [153]"ASC5 (null)ALK TO THE BUSH PILOT
3380 PRINT"[198]7 [199]O INTO THE WORK CAMP FOR DIRECTIONS
3390 NC[178]4:[141]7390
3400 [139]CH[178]1[167]SI[178]20:[139]SF[177]3[167]SI[178]26
3410 [139]CH[178]3[167]ZF[178]ZF[170]1:SI[178]18:[139]ZF[177]1[167]SI[178]19
3420 [139]CH[179]4[167][142]
3430 SI[178]22:[137]7950
3440 #17
3450 [153]"SYS(null)AP?  (null)HAT MAP??
3460 SI=16:NC=.:GOTO3120
3470 #18
3480 TX$="[212]HE PILOT WISHES YOU SUCCESS WITH YOUR  
3490 TX$[178]TX$[170]"MISSION.  LEFT$E WAVES CHEERILY AS HE SLAMS 
3500 TX$=TX$+"THE DOOR SHUT AND REVS THE ENGINE.  [200]E  
3510 TX$[178]TX$[170]"DOESN'T SEEM CONCERNED BY YOUR FRANTIC  SCREAMS.
3520 CH$(1)="[199]ET IN THE PLANE
3530 CH$(2)[178]"VALXPLAIN THAT YOU NEED THE SNOWSHOES
3540 CH$(3)="[215]AVE GOODBYE
3550 SP[178][171]1:NC[178]3:[141]7380
3570 TX$[178]"ATNS THE LIGHTS OF THE PLANE FADE INTO THE
3580 TX$=TX$+"GLOWERING DARKNESS, YOU REALIZE THAT    
3590 TX$[178]TX$[170]"YOU ARE LOSING YOUR LAST CONTACT WITH   
3600 TX$=TX$+"CIVILIZATION.  [211]OON THE BUZZ OF THE     
3610 TX$[178]TX$[170]"ENGINE IS SWALLOWED BY THE HOWLING WIND.
3620 CH$(1)="[199]O BACK HOME":LK(1)=19
3630 CH$(2)="[210]EASON WITH THE PILOT":LK(2)=19
3640 CH$(3)="[210]ETURN TO THE TRAIL":LK(3)=20
3650 CH$(4)="[199]O INTO THE WORK CAMP":LK(4)=22
3660 SP=-1:NC=4:GOSUB7380
3670 IFSI=19THENTR$="[200]OW CAN YOU DO THAT?  [212]HE PLANE IS GONE!
3680 [137]3420
3690 :
3700 RN[178]12:[139]SP[178]2[167]7570
3710 A1$[178]"LIST  CMDCMD +CMDCMDSGNABSCMDCMDINTABSCMDCMDGETWAITGETCMDCMDABSGETCMDCMDABSINTCMDCMD+SGNCMDCMD+
3720 PRINT"[147]"A1$
3730 SYSCB,0,17:PRINTMID$(A1$,18)
3740 SYSCB,0,32:PRINTMID$(A1$,18)
3750 SYSCB,0,37:PRINTA1$
3760 SYSCB,6,4:PRINT"[181]          [182]
3770 [158]CB,7,4:[153]"INT          ABS
3780 SYSCB,8,5:PRINT"[149]======
3790 [158]CB,9,5:[153]"========
3800 SYSCB,10,3:PRINT"[152][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
3810 [158]CB,6,5:[153]"VERIFY CMDON WAITCMDONPRINT#.ON .  ONO   ON(null)
3820 SYSCB,7,21:PRINT".*
3830 [158]CB,2,21:[153]".*.ON.*LIST
3840 SYSCB,RN:SP=2:RETURN
3850 #20
3860 IFSF>3THENSI=26:RETURN
3870 TR$="[212]HE TRAIL IS FAINT, AND THE BLOWING SNOWIS COVERING IT FAST.
3880 TX$[178]"(null)OUR FEET SINK INTO THE POWDERY SNOW,   
3890 TX$=TX$+"MAKING YOU WISH YOU HADN'T LEFT YOUR    
3900 TX$[178]TX$[170]"SNOWSHOES ON THE PLANE.  PEEKETTER YET, A  
3910 TX$=TX$+"SNOWMOBILE WOULD BE GREAT.  [212]HE TRAIL IS
3920 TX$[178]TX$[170]"ALMOST COMPLETELY HIDDEN NOW.
3930 CH$(1)="[212]URN BACK":LK(1)=16
3940 CH$(2)="[199]O ON":LK(2)=21
3950 SP=-1:NC=2:GOTO7380
3960 #21
3970 PRINT"[147][150][201] THINK YOU'D BETTER TURN BACK.":SI=16
3980 NC=.:GOTO3120
3990 #22
4000 IF(LS-16)*(LS-19)THEN4020
4010 GOSUB7950:TR$="[217]OU PUSH OPEN THE DOOR TO THE WORK CAMP.
4020 TX$[178]"ATN ROWDY SCENE GREETS YOUR EYES AND EARS.
4030 TX$=TX$+"[193]T LEAST TWO DOZEN LOGGERS ARE GATHERED 
4040 TX$[178]TX$[170]"AROUND THE TABLES OF THE MESS HALL,     
4050 TX$=TX$+"SINGING AND GENERALLY HAVING A GOOD"+CR$
4060 TX$=TX$+"TIME.  [211]LAPPING YOU ON THE BACK, THEY   
4070 TX$[178]TX$[170]"FIND YOU AN EMPTY SEAT.
4080 CH$(1)="[194]UY A SNOWMOBILE":LK(1)=25
4090 CH$(2)="[200]AVE A BEER
4100 CH$(3)[178]"(null)AKE A FRIEND":LK(3)[178]23
4110 CH$(4)[178]"LEFT$EAD OUT":LK(4)[178]16
4120 NC[178]4:[141]7380
4130 [139]CH[171]4[167]TR$[178]"(null)HOSE GUYS SURE ARE FRIENDLY.
4140 IFCH-2THENRETURN
4150 SI=24:TR$=TR$+CR$+"[193]ND THAT'S GOOD BEER!
4160 BF[178]BF[170]1:[139]BF[177]1[167][142]
4170 TX$[178]"(null)OU FEEL MUCH MORE RELAXED NOW.
4180 GOTO4080
4190 #23
4200 TX$="[217]OU MAKE A NEW FRIEND QUICKLY."+CR$
4210 TX$=TX$+"[200]E LISTENS INTENTLY TO YOUR TALE"+CR$
4220 TX$=TX$+"ABOUT [211]ANTA.  [211]LAPPING YOU ON THE"+CR$+"BACK GENEROUSLY, HE
4230 LK(1)[178]22:[139]SF[177]3[167]4270
4240 TX$[178]TX$[170]" INSISTS THAT YOU    BORROW HIS SNOWMOBILE.
4250 SF=4:EX$=" TO THANK HIM":GOSUB7370
4260 TR$="[212]HAT SHOULD BE HANDY.":RETURN
4270 TX$=TX$+" HAS ANOTHER"+CR$+"COOL, CLEAR ONE.":GOTO7370
4280 #24
4290 TX$="[201]N FACT, YOU HAVE SEVERAL COOL, CLEAR
4300 TX$[178]TX$[170]CR$[170]"LENANADIAN BEER.  ATNFTER A FEW MORE HOURS  
4310 TX$=TX$+"OF STORYTELLING, YOU FALL ASLEEP.
4320 LK(1)[178]22:[137]2390
4330 #25
4340 TX$[178]"LEFT$OWEVER, THEY ARE SOON OFFENDED BY YOUR 
4350 TX$=TX$+"CRASS ATTEMPTS AT NEGOTIATION."+CR$
4360 IFSF>3THENTX$=TX$+"[217]OUR FRIEND ALREADY AGREED TO LEND YOU  
4370 [139]SF[177]3[167]TX$[178]TX$[170]"HIS (null)KIDOO, AND NOW YOU'VE REALLY UPSET HIM."[170]CR$
4380 TX$[178]TX$[170]"(null)UITE FIRMLY, THEY SUGGEST THAT YOUR"[170]CR$
4390 TX$[178]TX$[170]"MONEY IS NO GOOD HERE, AND YOU SHOULD   STEP OUTSIDE.
4400 LK(1)=16:EX$=" TO RETREAT":GOTO7370
4410 #26
4420 PRINT"[147][153][212]HERE ARE MANY DANGERS ON THIS TRAIL...
4430 [153]"WHY, THE INFAMOUS (null)AD (null)RAPPER OF THE
4440 PRINT"[217]UKON COULD BE WAITING AROUND THE VERY
4450 [153]"NEXT CORNER, BUT ARE YOU AFRAID?   (null)(null)!
4460 PRINT"[154][217]OU ARE ZIPPING ALONG AT WARP SPEED ON
4470 [153]"YOUR BORROWED SNOWMOBILE.  (RIGHT$ SURE HOPE
4480 PRINT"YOU'RE GOING IN THE RIGHT DIRECTION).
4490 [153]"PRINT(null)HE TRAIL BRANCHES UP AHEAD.
4500 CH$(1)="[199]O LEFT
4510 CH$(2)[178]"CHR$O RIGHT
4520 CH$(3)="[199]O BACK
4530 NC[178]3:[141]7310:[141]7390
4540 [139]CH[178]3[167]SI[178]16:SP[178].:BC[178].:[142]
4550 [139]CH[178]BC[167]SI[178]28:[142]
4560 BC[178]3[171]CH
4580 TR$[178]"LOAD(null)RONG - YOU PICKED THE WRONG BRANCH.
4590 TX$="[212]HIS TRAIL LOOKS TERRIBLE."+CR$+"[204]ET'S TRY AGAIN.
4600 [141]7380:[137]4540
4610 #28
4620 [153]"LOADPRINT(null)HAT'S BETTER.":[153]"RIGHT$'M REALLY SURE THIS IS THE RIGHT WAY.
4630 PRINT"[215]ELL, FAIRLY SURE.  [194]UT THE TRAIL IS
4640 [153]"GETTING FAINT, AND THE WIND IS BLOWING
4650 PRINT"HARDER. [201]T'S ALMOST WHITEOUT CONDITIONS.";
4660 PRINT"[205]AYBE YOU WERE RIGHT THE FIRST TIME!":PRINT"[207]H WELL...
4670 [129]I[178]1[164]29:[141]3150:[139][194](KB)[178].[167][130]
4680 [153]"RIGHT$ THINK YOU MIGHT BE GETTING LOST.
4690 SF=5:ZF=.:BC=.:POKEKB,.:GOSUB7360
4700 PRINT"[147][153][213]NDETERRED, YOU BOUNCE ALONG THE TRAIL.
4710 [129]I[178]1[164]1300:[130]:[153]"ATNND ON...
4720 FORI=1TO20:GOSUB3150:NEXT:PRINT"[193]ND ON...":FORI=1TO1300:NEXT
4730 PRINT"[193]FTER ONE LARGE BUMP, YOUR RIFLE FALLS  OFF THE BACK OF THE SEAT.[154]
4740 [129]I[178]1[164]40:[141]3150:[130]:[153]"(null)OU'RE MAKING SUCH GOOD PROGRESS...
4750 PRINT"[204]ET'S NOT WORRY ABOUT DETAILS!
4760 [153]"PRINT(null)OU AND THE SNOWMOBILE MAKE A GREAT
4770 PRINT"TEAM, AND YOU COVER A LOT OF DISTANCE
4780 [153]"ALONG WHAT APPEARS TO BE THE TRAIL.
4790 FORI=1TO39:GOSUB3150:IFPEEK(KB)=.THENNEXT
4800 PRINT"[212]HINGS ARE GOING SO WELL NOW - MAKES ME NERVOUS!
4810 [153]"CONT(null)RESS A KEY TO KEEP GOING.
4820 POKEKB,.:GOSUB3120:GOSUB7950:SL=.
4830 TR$="[196]ON'T SAY [201] DIDN'T WARN YOU!
4850 TX$[178]"(null)HE TRAIL IS BLOCKED BY AN IMMENSE POLAR
4860 TX$=TX$+"BEAR.  '[215]ILD [203]INGDOM' WAS NEVER LIKE    
4870 TX$[178]TX$[170]"THIS!  (null)OOKS LIKE...DEF>(null)ROUBLE<
4880 CH$(1)="[210]UN FOR YOUR LIFE":LK(1)=30
4890 CH$(2)="[212]URN THE SNOWMOBILE AROUND AND TAKE     OFF":LK(2)=33
4900 CH$(3)="[215]RESTLE WITH THE POLAR BEAR":LK(3)=31
4910 CH$(4)="[207]FFER THE BEAR SOME FOOD":LK(4)=32
4920 IFBC>4THENCH$(1)="[195]ALL FOR '[200]ELP'":LK(1)=39
4930 NC=4:BC=BC+1:GOTO7380
4940 #30
4950 TR$="[217]OU REMEMBER TO GRAB THE SNOWSHOES THAT ARE TIED TO THE [211]KIDOO.
4960 TX$[178]"ASCORTUNATELY YOU GET A LITTLE BIT OF A   
4970 TX$=TX$+"HEAD START, AS THE BEAR STUMBLES OVER   THE SNOWMOBILE."+CR$
4980 TX$=TX$+"[194]UT THAT JUST MAKES HER MAD!"+CR$
4990 TX$=TX$+"[217]OU ARE RUNNING LIKE CRAZY."+CR$+CR$+"[213]NFORTUNATELY THE POLAR 
5000 TX$[178]TX$[170]"BEAR IS CRAZIER.ATNND YOU'RE TRYING TO RUN IN SNOWSHOES!
5010 LK(1)=36:GOTO7370
5020 #31
5030 TR$="[212]HE BEAR CHEATS: SHE SCRATCHES AND BITES
5040 TX$[178]"PEEKUT YOU STRUGGLE FREE, AND LIMP BACK TO THE WORK CAMP."[170]CR$
5050 TX$[178]TX$[170]"(null)OUR INJURIES TAKE MONTHS TO HEAL.
5060 LK(1)=29:GOTO2390
5070 #32
5080 TR$="[212]HE BEAR IS NOT IMPRESSED BY YOUR"+CR$
5090 TR$=TR$+"FREEZE-DRIED TURNIPS, BUT EATS THEM     ANYWAY."+CR$
5100 TX$="[204]OOKS LIKE YOU'RE DESSERT.
5110 LK(1)[178]29:[137]7370
5120 #33
5130 [139]ZF[167]SI[178]35:[142]
5140 TR$[178]"ATNN EXCELLENT CHOICE, MASTER.
5150 TX$="[217]OU ARE ESCAPING FROM THE POLAR BEAR.   
5160 TX$[178]TX$[170]"(null)NOWMOBILES CAN BE HANDY SOMETIMES.  RIGHT$F 
5170 TX$=TX$+"ONLY THERE WASN'T THAT ANNOYING RATTLE  
5180 TX$[178]TX$[170]"IN THE MOTOR...
5190 GOSUB7370:A=22:GOSUB7580:SYSCB,10
5210 PRINT"[212]HE RATTLE IS GETTING WORSE.
5220 [153]"(null)O BE MORE PRECISE, THE ENGINE HAS
5230 PRINT"STOPPED.  [199]UESS YOU SHOULD HAVE BORROWEDSOME GAS, TOO.
5240 ZF[178]1:LK(1)[178]29:[137]7360
5250 #35
5260 TR$[178]"RIGHT$ TOLD YOU, THE SNOWMOBILE IS"[170]CR$[170]"OUT OF GAS!!!
5270 TX$="[212]RY TO PAY ATTENTION HERE, OK?
5280 BC[178]5:LK(1)[178]29:[137]7370
5290 #36
5300 TR$[178]"(null)HE BEAR IS GAINING FAST.
5310 TX$="[208]RETTY SOON SHE WILL BE ALL OVER YOU    LIKE A CHEAP SUIT. [212]HIS IS 
5320 TX$[178]TX$[170]"A THREATENINGSITUATION THAT CALLS FOR DRASTIC ACTION.
5330 CH$(1)="[211]HOOT THE BEAR":LK(1)=37
5340 CH$(2)="[195]HECK THE BACKPACK":LK(2)=38
5350 CH$(3)="[212]URN BACK":LK(3)=29
5360 NC=3:BC=BC+1:GOTO7380
5370 #37
5380 TX$="[210]EMEMBER THAT BUMP YOU HIT, BACK THERE  ON THE TRAIL?"+CR$
5390 TX$=TX$+"[193]ND YOUR RIFLE FELL OFF THE [211]KIDOO?     [210]EMEMBER??
5400 LK(1)[178]36:EX$[178]", YOU TURKEY":[137]7370
5410 #38
5420 TR$[178]"(null)UMMAGING THROUGH YOUR BACKPACK, YOU ARE
5430 TR$=TR$+"SURPRISED TO FIND A HAND GRENADE.  [201]N   
5440 TR$[178]TR$[170]"DESPERATION, YOU THROW IT AT THE BEAR.
5450 TX$="[197]VER A RESOURCEFUL CREATURE, THE BEAR   
5460 TX$[178]TX$[170]"PULLS THE PIN AND THROWS IT BACK.
5470 EX$=" TO DUCK":GOSUB7370
5480 TR$="[211]ORRY... [201] KNOW THAT WAS A 'CHEAP SHOT'.[201] JUST COULDN'T RESIST.
5490 SI[178]29:[142]
5500 #39
5510 SF[178]6:TX$[178]"(null)HY DON'T YOU TRY HIDING?
5520 GOSUB7370
5540 PRINT"[147][153][212]HERE AREN'T MANY GREAT PLACES TO HIDE
5550 [153]"HERE, SO YOU PLUNGE OFF THE TRAIL INTO
5560 PRINT"A SNOWBANK.  [193]MAZINGLY YOUR PLOY WORKS,
5570 [153]"AND THE POLAR BEAR WANDERS OFF, LOOKING
5580 PRINT"PUZZLED.  [215]HY DIDN'T YOU THINK OF THAT  SOONER?
5590 [141]7360:A[178]22:[141]7580:[158]CB,9:[137]5620
5600 #41
5610 [153]"LOAD
5620 PRINT"[153][213]NFORTUNATELY YOU HAVE NOW":PRINT"COMPLETELY LOST THE TRAIL.
5630 [153]"(null)OU STUMBLE FOR HOURS ACROSS THE
5640 PRINT"ENDLESS FROZEN TUNDRA.
5650 [153]"DEF<< ATN(null)(null) RIGHT$(null) (null)(null)(null)(null) >>":[151]KB,.:[141]7360:SL[178]SL[170]1
5660 [139]SL[177]3[167]SL[178]1:TX$[178]"(null)OMEHOW YOU STUMBLE BACK TO CAMP.":LK(1)[178]42:[137]2390
5670 TR$[178]"((null)R SO IT SEEMS, ANYWAY.)"[170]CR$[170]"ATNCTUALLY, IT'S NOT THAT BAD.
5690 TX$="[202]UST AS FROSTBITE IS ABOUT TO CELEBRATE VICTORY, 
5700 TX$[178]TX$[170]"YOU STUMBLE UPON AN VALSKIMO"[170]CR$[170]"SETTLEMENT.
5710 CH$(1)="[199]O INTO THE VILLAGE AND ASK FOR HELP":LK(1)=43
5720 CH$(2)="[203]EEP ON STUMBLING":LK(2)=41
5730 CH$(3)="[199]O BACK TO THE TRAIL
5740 SF[178]6:NC[178]3:[141]7380
5750 [139]CH[171]3[167][142]
5760 TR$[178]"(null)HY DID YOU COME BACK HERE??":SF[178]5:SI[178]29:SL[178]SL[170]1:[139]SL[177]3[167]5660
5770 [142]
5780 #43
5790 TX$[178]"VALVEN IN YOUR DAZED STATE, YOU REMEMBER  
5800 TX$=TX$+"TO ASK IF ANYONE HAS SEEN [211]ANTA.
5810 TX$[178]TX$[170]CR$[170]"(null)OO BAD YOU SKIPPED VALSKIMO CLASSES IN   
5820 TX$=TX$+"SCHOOL, BECAUSE YOU DON'T UNDERSTAND A  WORD OF THEIR RESPONSE.
5830 CH$(1)[178]"(null)ALK LOUDER TILL THEY UNDERSTAND
5840 CH$(2)="[199]O BACK TO SCHOOL":LK(2)=44
5850 CH$(3)="[204]OOK FOR THE [197]SKIMO PHRASE BOOK IN      YOUR BACKPACK":LK(3)=45
5860 CH$(4)="[212]RY TO FOLLOW THEIR DIRECTIONS ANYWAY":LK(4)=46
5870 NC=4:GOSUB7380
5880 IFCH=1THENTR$="[198]UNNY - THAT DOESN'T SEEM TO BE WORKING.":SI=43
5890 RETURN
5900 #44
5910 TR$="[194]E SERIOUS:":TX$="[212]HIS IS NO TIME FOR FRIVOLITY!
5920 [137]7370
5930 #45
5940 TR$[178]"(null)OPE...":TX$[178]"RIGHT$ DON'T SEE ANY PHRASE BOOK HERE.
5950 GOTO7370
5960 #46
5970 PRINT"[147][153][212]HERE IS ONE PARTICULARLY SHORT
5980 [153]"VALSKIMO WHO SEEMS TO UNDERSTAND":[153]"YOUR PREDICAMENT, AND LEADS
5990 PRINT"YOU TO HIS IGLOO.":PRINT"[154][217]OU MIGHT AS WELL GO IN.
6000 [153]"PRINTATNFTER A WARMING MEAL OF BLUBBER, YOU
6010 PRINT"CAREFULLY EXPLAIN ONCE AGAIN HOW
6020 [153]"(null)ANTA IS LOST, AND YOU ARE SEARCHING    FOR HIM.
6030 PRINT"[193]S THE [197]SKIMO SLOWLY REMOVES HIS PARKA, YOU INSTANTLY RECOGNIZE ";
6040 PRINT"HIM AS ONE OF   [211]ANTA'S ELVES.":PRINT"[215]HAT A SURPRISE![154]
6050 [153]FK$(1)"LEFT$AVE SOME MORE BLUBBER
6060 PRINTFK$(2)"[193]SK ABOUT [211]ANTA":LK(2)=47
6070 PRINTFK$(3)"[204]EAVE":LK(3)=42
6080 SF=7:NC=3:GOSUB7390
6090 IFCH=1THENSI=46:PRINT"[147][153][212]HANKS.":GOTO6000
6100 IFSI=42THENSF=6
6110 RETURN
6120 #47
6130 PRINT"[147][153][201]T'S AMAZING HOW MUCH ROOM THERE IS IN  AN IGLOO.
6140 [153]"(null)HE ELF DOES NOT ANSWER YOUR REPEATED
6150 PRINT"INQUIRIES ABOUT [211]ANTA, BUT INSTEAD
6160 [153]"LEADS YOU INTO ANOTHER ROOM, THEN
6170 PRINT"INTO A SMALL ELEVATOR.":FORI=1TO550:IFPEEK(KB)=.THENNEXT
6180 PRINT"[211]ILENTLY, HE PRESSES THE DOWN BUTTON.
6190 [153]"ATNS THE ELEVATOR DROPS, YOU WONDER...
6200 CH$(1)="[193]SK ABOUT [211]ANTA
6210 CH$(2)[178]"(null)RY TO LEAVE
6220 NC=2:GOSUB7310:GOSUB6480
6230 IFCH=3THENTR$="[217]OU CAN'T LEAVE NOW... WHEN YOU'RE      SO CLOSE!
6250 TX$[178]"(null)TILL THE ELF IGNORES YOUR QUESTIONS.
6260 NC=.:GOSUB7270:GOSUB6490:GOSUB6520:POKERA+3,Y
6270 TR$="[197]VENTUALLY THE ELEVATOR STOPS, AND OPENSTO REVEAL A HUGE UNDER
6280 TR$[178]TR$[170]"GROUND WORKSHOP.
6300 TX$="[207]NE FIGURE TOWERS ABOVE THE MANY ELVES -
6310 TX$[178]TX$[170]"IT'S (null)RS. (null)ANTA LENLAUS!
6320 TX$=TX$+CR$+"[201] HAVE A FEELING YOUR QUEST HAS"+CR$+"NEARLY ENDED.
6330 CH$(1)[178]"ASCRANTICALLY TELL HER ABOUT (null)ANTA":LK(1)[178]51
6340 CH$(2)[178]"LEFT$EAD BACK TO THE ELEVATOR":LK(2)[178]50
6350 CH$(3)[178]"(null)OOK AT THE TOYS THE ELVES ARE MAKING
6360 NC=3:GOSUB7380
6370 IFCH=3THENSI=49:TR$="[212]HE TOYS LOOK GREAT.  [212]RY NOT TO DROP   THEM.
6380 [142]
6390 #50
6400 [153]"LOADPRINT(null)HE ELF GOES WITH YOU, FOR THE RIDE UP.
6410 PRINT"[193]REN'T YOU STILL WORRIED ABOUT [211]ANTA?
6420 [153]"(null)RESS A KEY IF YOU CARE.
6430 GOSUB6550:A=RA+1
6440 FORI=11TO218STEP2:POKEX,I:POKERA+3,I+Y:NEXT
6450 IFPEEK(KB)=.THEN6440
6460 POKEKB,.:GOSUB6520:GOTO6180
6470 :
6480 X=RA+1:Y=32:POKEBG,208:POKE54287,7:GOSUB6550
6490 FORI=218TO11STEP-2:POKEX,I:POKERA+3,I+Y:NEXT
6500 IFPEEK(KB)=.THEN6490
6510 GETA$:GOTO7540
6520 POKESW,20:FORI=5100TO999STEP-119
6530 POKESW-3,I/256:POKESW-4,IAND255:NEXT:RETURN
6540 :
6550 POKESW+1,148:POKESW+2,250:POKESW,21
6560 FORI=2646TO5330STEP79:POKESW-3,I/256:POKESW-4,IAND255:NEXT
6570 RETURN
6580 #51
6590 PRINT"[147][205]RS. [195]LAUS LISTENS PATIENTLY WHILE YOU  RECOUNT YOUR LENGTHY ";
6600 PRINT"QUEST FOR CLUES TO [211]ANTA'S DISAPPEARANCE.
6610 [153]"DEFLENHUCKLING SOFTLY, SHE EXPLAINS THAT":[153]"(null)ANTA ISN'T LOST AT ALL-
6620 PRINT"BUT HE DID GO AWAY FOR A WHILE.
6630 [153]"(null)HAT WITH ALL THE RUSH AT LENHRISTMAS,
6640 PRINT"HE LIKES TO TAKE A QUICK TRIP TO THE
6650 [153]"SUNSHINE, AS SOON AS MOST OF THE
6660 PRINT"TOYS ARE READY FOR DELIVERY.
6670 EX$[178]" TO FIND OUT MORE":[141]7360
6690 [141]7040
6700 [153]"IT'S A SIMPLE CASE OF...
6710 PRINT"  'HERE TODAY,  GONE TO MAUI'
6720 [153]"THIS POSTCARD ARRIVED THIS MORNING
6730 PRINT"FROM HAWAII:  IT SHOWS THE VIEW":PRINT"FROM SANTA'S HOTEL ROOM.";
6740 POKE53265,27:GOSUB7620
6760 GOSUB7570
6770 PRINT"SANTA RAN OFF IN A HURRY BECAUSE HE
6780 [153]"HAD TO GET PACKED.  HE DIDN'T HAVE
6790 PRINT"TIME TO MENTION IT TO ANYONE, SO
6800 [153]"MAYBE SOME FOLKS GOT THE WRONG IDEA.
6810 PRINT"TOO BAD YOU CAME ALL THIS WAY
6820 [153]"FOR NOTHING!
6830 GOSUB7620
6850 POKESX+17,11:GOSUB7950:GOSUB1760
6860 PRINT"[158][196]ARN!!
6870 [153]"PRINT(null)HE GOOD NEWS IS THAT (null)ANTA'S OK, SO WE
6880 PRINT"WON'T HAVE TO CANCEL [195]HRISTMAS.
6890 [153]"CONT(null)HE BAD NEWS IS THAT YOU'VE BEEN
6900 PRINT"WASTING A LOT OF YOUR TIME, AND MINE,
6910 [153]"CHASING ALL OVER THE WORLD FOR NOTHING!
6920 GOSUB2160:GOSUB7570
6940 PRINT"[194]UT THANKS TO YOU, THOUSANDS OF KIDS CAN";
6950 PRINT"   SLEEP BETTER TONIGHT, KNOWING THAT
6960 [153][163]13)"(null)ANTA IS SAFE!
6970 PRINTTAB(50)"[150][211]EASONS' [199]REETINGS!
6980 [153]" FROM RIGHT$AN ATNDAM AND EVERYONE AT (null)OADSTAR.DEF
6990 GOSUB2160:GOSUB7570
7000 PRINT"[154][208]RESS:[154][153]
7010 [153]"ASC1 TRY AGAIN, HOPEFULLY BETTER NEXT TIMEASC3 "XX$
7020 [141]2160:[141]7540:[137]2950
7030 :
7040 RN[178]17:[139]SP[178]5[167]7570
7050 A$[178]"STOP(null)PEEK(null)PRINTONCMDCMDCMDCMDCMD(null)SPC(SPC((null) PRINT\COSONCMDCMDCMDCMDCMDCMDCMDNOTSPC(SPC(PRINT(null)(null)SPC(PRINTNOT
7060 POKE53265,11:PRINT"[147][142]
7070 A[178]26:B[178]6:[141]7150
7080 [158]CB,7:A[178]19:B[178]2:[141]7150
7090 [158]CB,16,2:[153]A$[163]20)"SYS(null)PEEK(null)PRINTONCMDCMDCMDCMDSPC(RND\(null)NOTONCMDCMDCMDCMDCMDNOTSPC(RIGHT$\LISTSPC("[163]34)A$
7100 [153]" SYSSTEP  (null)":[153]"     ":[153]" (null)  WAITSTEP
7110 SYSCB,8,11:PRINT"[169][223]":PRINTTAB(10)"[169][182] [223]":PRINTTAB(10)"[158][162][162][162][162]
7120 [151]RA,14:[151]RA[170]1,128:[151]RA[170]2,3:[151]RA[170]3,132:[151]RA[170]4,6
7130 [158]CB,RN:SP[178]5:[142]
7140 :
7150 [153][163]A[171]1)"PRINTSTEPWAITSTEPONCMDSTEPWAITSTEPONCMDSTEPWAITSTEPTAB((null)(null)STEPWAITSTEPTAB((null)(null)CMDWAIT(null)(null)CMDWAIT(null)(null)
7160 PRINTTAB(A)"[169][146][169][145][157][169][146][169][145][157][169][146][169][223][223][169][146][169][223][223][157][146][223][223][157][146][223][223][145]
7170 [153][163]A[170]5)"ONVERIFYSGN WAITSGN
7180 PRINTTAB(A+5)"[182] [182]
7190 [153][163]A[170]6)"  
7200 PRINTTAB(A+6)"[180] [146][180]
7210 [153][163]A[170]6)"GET WAITGET
7220 PRINTTAB(A+6)"[182] [182]
7230 [129]I[178]1[164]4:[153][163]A[170]6)"THEN THEN":[130]
7240 [129]I[178]1[164]B:[153][163]A[170]7)"  ":[130]
7250 [142]
7260 :
7270 [141]7570,CL
7280 [153]"PRINT"TR$:TR$[178]"
7290 PRINT"[153]":PRINTTX$
7300 IFNC=.THENPRINT:PRINT"[154][211]O PRESS A KEY"EX$".":EX$="":RETURN
7310 SYSCB,10:PRINT"[158][196]O YOU:[154]
7320 [129]I[178]1[164]NC
7330 [153]FK$(I)CH$(I):[130]
7340 [142]
7350 :
7360 NC[178].:[141]7300:[137]7390
7370 NC[178].
7380 [141]7270
7390 W[178]2500[171]900[172](SP[175]2)
7400 [129]I[178]1[164]W
7410 [139][194](KB)[178].[167]7490
7420 [161]A$:[141]7540:[139]CH[177]7[167]1600
7430 [139]NC[178].[167]CH[178]1:NC[178]1
7440 [139](CH[175]1)[178].[167]7460
7450 CH[178]CH[173]2[170].5:[139]CH[179][178]NC[167]SI[178]LK(CH):DC[178]DC[170](DC[177][171]12):[142]
7460 CH[178].:WK[178]WK[170]1:[139]WK[177]MK[167]WK[178]1
7470 A[178]22:[141]7580:[153]WK$(WK)
7480 I[178]I[171]999
7490 [139]SP[175]2[167][141]3150
7500 [130]:CC[178]CC[170]1:[139]CC[177]MC[167]CC[178]1
7510 A[178]22:[141]7580:[153]CC$(CC)
7520 W[178]W[172]1.5:[137]7400
7530 :
7540 CH[178][197](A$):[139]A$[177]"INPUT#"[167]CH[178][198](A$)[172]2[171]265
7550 [142]
7560 :
7570 A[178]RN:[151]KB,.:[139]SP[179]1[167][153]"PRINTLOAD";:[151]SX[170]21,.:[142]
7580 [129]I[178]24[164]A[169][171]1:[158]CB,I
7590 [153]"                                        ON":[130]
7600 [153]"PRINT";:[142]
7610 :
7620 [161]A$:[139]A$[178]""[167]7620
7630 [142]
7640 :
7660 [159]1,8,15,"R0:"[170]A$[170]"="[170]A$
7670 [132]1,A:[160]1
7680 [142]
7690 [153]"RIGHT$NSERT PROGRAM DISK; PRESS (null)VAL(null)(null)(null)(null)
7700 POKE198,0:WAIT198,1:GETA$
7710 RETURN
7720 :ST:
7730 IFMLTHEN7780
7740 A$="HELLO CONNECT":GOSUB7660:POKE2,ABS(A=63)
7750 A$="SC.ML":GOSUB7660:IFA=63THEN7770
7760 GOSUB7690:GOTO7750
7770 ML=1:LOADA$,8,1
7780 IFPEEK(789)=234THENSYS49237
7790 SX=53248:SC=53287:POKESX+21,.:REM  POKE808,225
7800 SW=54276:SR=54299:KB=198:CB=679:BG=49196:RA=BG+28:CR$=CHR$(13)
7810 FORI=SW-4TOSW+19:POKEI,.:NEXT:POKEI,143:POKEI-6,17
7820 GOSUB8500,TI
7830 XX$="END THE PROGRAM 
7840 [139][194](2)[167]XX$[178]"BACK TO LOADSTAR
7850 FK$(1)="[198]1 [154]":FK$(2)="[198]3 [154]":FK$(3)="[198]5 [154]":FK$(4)="[198]7 [154]"
7860 GOSUB7950
7870 :
7880 READMC:DIMCC$(MC)
7890 FORI=1TOMC:READCC$(I):NEXT
7900 READMK:DIMWK$(MK)
7910 FORI=1TOMK:READWK$(I):NEXT
7920 :
7930 GOTO7620
7940 :
7950 SP=.:POKESW,128
7960 POKERA,.:POKERA+1,11
7970 POKERA+2,15:POKERA+3,32:POKERA+4,240:RETURN
7980 :
7990 DATA34
8000 DATA"[201]'M WAITING FOR YOUR RESPONSE.
8010 [131]"LEFT$AVEN'T YOU DECIDED YET?
8020 DATA"[212]IME IS MONEY...
8030 [131]"ATNRE YOU STILL THERE?
8040 DATA"[200]O-HUM
8050 [131]"ATNRE YOU BACK FROM LUNCH?  (null)RESS A KEY.
8060 DATA"[196]O [201] HAVE TO FINISH THIS ALONE?
8070 [131]"RIGHT$F VALDISON WERE THIS SLOW, YOU'D HAVE TO PLAY THE GAME BY CANDLELIGHT!
8080 DATA"[211]ORRY, [201] DOZED OFF.  [196]ID [201] MISS YOUR    ANSWER?
8090 [131]"LEFT$URRY UP - MAKE UP YOUR MIND!
8100 DATA"[211]O MANY CHOICES...
8110 [131]"(null)LEASE HURRY UP.  RIGHT$ HAVE A DATABASE     APPOINTMENT AT 6 O'CLOCK.
8120 DATA"[197]ARTH TO PLAYER... COME IN PLEASE.
8130 [131]"LEFT$URRY UP;  RIGHT$'M FREEZING!
8140 DATA"[212]HE SNOW IS REALLY PILING UP.
8150 [131]"LEFT$AVE YOU DOZED OFF?
8160 DATA"[208]LEASE CALL AN AMBULANCE.  [201] THINK      YOU'VE DIED.
8170 [131]"(null)HE ARCTIC NIGHT LASTS SIX MONTHS... CANYOU DECIDE BEFORE MORNING?
8180 DATA"[208]LEASE SIGNAL YOUR PRESENCE BY PRESSING A KEY.
8190 [131]"(null)LEASE TRY- DON'T BE SHY- YOU KNOW WHY- JUST MAKE A CHOICE.
8200 DATA"[210]EAD MY LIPS!  [208]RESS A KEY.
8210 [131]"(null)OOHOO - RIGHT$'M STILL WAITING!
8220 DATA"[212]RY TO KEEP UP HERE.
8230 [131]"ATNLL YOU HAVE TO DO IS PRESS A KEY.
8240 DATA"[217]OU DON'T NEED AN ESSAY - JUST PRESS A  KEY.
8250 [131]"(null)NOCK (null)NOCK... WHO'S THERE?
8260 DATA"[211]OME TIME TODAY WOULD BE GREAT.
8270 [131]"RIGHT$S THERE LIFE ON VALARTH?
8280 DATA"[212]HIS COULD TAKE A WHILE.
8290 [131]"(null)OU'VE ALREADY LOST THREE TOES TO FROST BITE!
8300 DATA"[205]AYBE WE SHOULD LEAVE THIS TILL NEXT    [195]HRISTMAS?
8310 [131]"((null)AWN)
8320 DATA"[201]T'S NOT THAT TOUGH - JUST PRESS A KEY!
8330 [131]"(null)HAT DO YOU SAY WE JUST TOSS A COIN?
8340 DATA14
8350 DATA"[215]RONG KEY - [212]RY AGAIN.
8360 [131]"(null)HAT A NOVEL IDEA!
8370 DATA"[195]AN'T YOU FIND THE RIGHT KEYS?
8380 [131]"LEFT$OW RUDE!!
8390 DATA"[195]AREFUL- THAT'S THE KEY TO DETONATE THE DYNAMITE.
8400 [131]"(null)RY TO PAY ATTENTION
8410 DATA"[202]UST PRESS ONE OF THE KEYS LISTED.
8420 [131]"(null)RONG.
8430 DATA"[217]OU WANT TO [215][200][193][212]??
8440 [131]"(null)HAT'S THE WRONG KEY- PLEASE ERASE IT   FROM YOUR SCREEN AND TRY AGAIN
8450 DATA"[206]OT THAT KEY!
8460 [131]"(null)TOP MUMBLING.
8470 DATA"[208]RACTISE MAKES PERFECT - TRY AGAIN.
8480 [131]"STR$OES YOUR KEEPER KNOW YOU'RE PLAYING    WITH THE COMPUTER?
8490 :
8500 PRINT"[147][150]"TAB(93)"[212]HE [211]EARCH FOR
8510 [153][163]14)"(null)ANTA LENLUES:
8520 PRINTTAB(50)"[153][193] [195]HRISTMAS [205]YSTERY
8530 [153][163]10)"DEFAS TOLD TO RIGHT$AN ATNDAM
8540 PRINTTAB(43)"[154][201]S IT PART LEGEND OR PURE REALITY WE
8550 [153]"MAY NEVER KNOW, BUT AS WE LISTEN TO THE
8560 PRINT"OLD WISE MAN'S TALE OF [211]ANTA [195]LUES, THE
8570 [153]"RIDDLE REMAINS UNSOLVED TODAY.   (null)HY
8580 PRINT"WOULD [211]ANTA [195]LAUS, A SUCCESSFUL PUBLIC
8590 [153]"FIGURE, SUDDENLY DISAPPEAR?  ATNND HOW
8600 PRINT"WILL THE PUBLIC MANAGE WITHOUT HIM?
8610 [153]"   RIGHT$T'S A TEST OF YOUR ABILITY - CAN YOU";
8620 [153]"SOLVE THE PUZZLE?   (null)AY CLOSE ATTENTION
8630 PRINT"TO THE QUESTIONS (THERE MAY BE A QUIZ AT";
8640 PRINT"THE END).  [193]NSWER BY PRESSING A FUNCTION";
8650 PRINT"OR NUMBER KEY;  PRESS [198]8 AT ANY INPUT TO";
8660 PRINT"QUIT.  [215]HEN THERE ARE NO CHOICES LISTED,";
8670 PRINT"[150]PRESS ANY KEY TO CONTINUE.
8680 [153][163]9)"PRINT(null)UBLISHED BY (null)OADSTAR";
8690 [142]
10000 [159]15,8,15,"S0:SANTA CLUES":[160]15:[148]"SANTA CLUES",8:[128]
60000 [151]53281,0:[151]53280,0:[153]"LOADDEF          (null) ATN (null) (null) ATN    LEN (null) (null) VAL (null)"
60010 [153]"PRINT        ATNN RIGHT$RREVERENT (null)UEST FOR A"
60020 [153]"          ASCAMOUS (null)HILANTHROPIST"
61000 [151]214,15:[153]
61110 [153]"  LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
61120 [153]"  PRINT#                                    "
61130 [153]"         (null) ATN (null) (null) ATN   LEN (null) (null) VAL (null)        "
61140 [153]"    BY RIGHT$AN ATNDAM  (LEN) 1989 BY (null)OFTDISK "
61150 [153]"        (null)UBLISHED ON (null)(null)ATNSTR$(null)(null)ATN(null) #67     "
61160 [153]"      (null)UBSCRIPTIONS 1-800-831-2694    "
61170 [153]"           ATNLL (null)IGHTS (null)ESERVED        "
61180 [153]"                                      "
61190 [153]"  POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS"
61200 [129]Z9[178]0[164]2000:[130]:[142]